<script>on mouseUpshow cd fld "démo"end mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>68</left>
<top>93</top>
<right>421</right>
<bottom>290</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>démo</name>
<script>on mouseuphide meend mouseup</script>
</part>
<content>
<layer>card</layer>
<id>7</id>
<text>Version de démonstration, pour avoir la version complète de Doctus Latinus, veuillez payer les droits de SharWare.Cette fonction "Cours" n'est pas disponible dans la version à 100 FF, mais dans une version coûtant 150 FF. Dans cette fonction, s'y trouve une série de cours simples et complets ainsi qu"une série d'exercices corrigés...</text>
</content>
<name>Exercices</name>
<script></script>
</card>
card_30481.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> Dans un dictionnaire, sont indiqués la forme du nom au nominatif singulier et, en abrégé, au génitif singulier. Vous savez donc immédiatement à quelle déclinaison appartient ce nom. • Pour les noms de la 1ère et de la 2ème déclinaison (génitif -ae et -i), la terminaison du génitif vient remplacer la terminaison -a et -us du nominatif. on lit donc: agricola, agricolae asinus, asini • Pour les noms de la 3ème déclinaison (génitif -is), nous indiquons, au génitif, les dernières lettres du radical: orator, (orat)oris mulier, (muli)eris</text>
</content>
<name>dicoco</name>
<script></script>
</card>
card_15584.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpselect the first line of cd fld "Dictionnaire"visual effect dissolvego card "Dictionnaire"global Mvideo,MIMAGEif Mvideo is not empty thenclose window Mvideoput "" into Mvideoend ifIf Mimage is not empty then close window Mimageshow bg btn retourcolorizeHC "erase"Hide bg btn retourLock screencolorizeHC "new","fond","0,0"unlock Screenend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>11</left>
<top>90</top>
<right>502</right>
<bottom>315</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Dictionnaire</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>313</left>
<top>316</top>
<right>447</right>
<bottom>338</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Chercher un mot...</name>
<script>on mouseUpput 0 into eglobal textFindask "Texte recherché :"if it is empty then exit mouseUpelseput it into textFindfind textfindif the result is NOT empty thenplay boinganswer "“" & textFind & "” est introuvable." -- ∆exit mouseupend ifend ifend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>51</top>
<right>510</right>
<bottom>82</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30487</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Nouveau bouton</name>
<script>on mouseUpselect the first line of cd fld "Dictionnaire"go card "Menu"end mouseUp</script>
<script>on mouseUpvisual effect dissolvego card "dicoco"global Mvideo,MIMAGEif Mvideo is not empty thenclose window Mvideoput "" into Mvideoend ifIf Mimage is not empty then close window Mimageshow bg btn retourcolorizeHC "erase"Hide bg btn retourLock screencolorizeHC "new","fond 2","0,0"unlock Screenend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>6</id>
<text><span class="style9">ette version est limitée, pour pouvoir bénéficier de tous les atouts de Doctus Latinus, vous devez payer les droits de ShareWare (100 FF) à : ROTTIERS Mickaël, 25 rue du président Allendé 80800 Corbie.</span></text>
</content>
<name>Dictionnaire</name>
<script></script>
</card>
card_12481.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpshow cd fld "démo"end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>14</id>
<text><span class="style12">ette version est limitée, pour pouvoir bénéficier de tous les atouts de Doctus Latinus, vous devez payer les droits de ShareWare (100 FF) à : ROTTIERS Mickaël, 25 rue du président Allendé 80800 Corbie.</span></text>
</content>
<name>Adjectifs</name>
<script></script>
</card>
card_33312.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style6">n principio creavit Deus caelum et terram.Terra autem erat inanis et vacua, et tenebrae erant super faciem abyssi, et Spiritus Dei ferebatur super aquas.Dixitque Deus: Fiat lux. Et facta est lux. Et vidit Deus lucem quod esset bona: et divisit lucem a tenebris. Appellavitque lucem Diem, et tenebras Noctem factumque est vespere et mane, dies unus.Dixit quoque Deus: Fiat firmamentum in medio aquarum: et dividat aquas ab aquis. Et fecit Deus firmamentum, divisitque aquas, quae erant sub firmamento, ab his, quae erant super firmamentum.Et factum est ita. Vocavitque Deus firmamentum, Caelum: et factum est vespere et mane, dies secundus.Dixit vero Deus: Congregentur aquae, quae sub caelo sunt, in locum unum: et appareat arida. Et factum est ita. Et vocavitDeus aridam Terram, congregationesque aquarum appellavit Maria.Et vidit Deus quod esset bonum.Et ait: Germinet terra herbam virentem, et facientem semen, et lignum pomiferum faciens fructum iuxta genus suum, cuius semen in semetipso sit super terram. Et factum est ita. Et protulit terra herbam virentem, et facientem semen iuxta genus suum, lignumque faciens fructum, et habens unumquodque sementem secundum speciem suam. Et vidit Deus quod esset bonum. Et factum est vespere et mane, dies tertius.Dixit autem Deus: Fiant luminaria in firmamento caeli, et dividant diem ac noctem, et sint in signa et tempora, et dies et annos; ut luceant in firmamento caeli, et illuminent terram. Et factum est ita. Fecitque Deus duo luminaria magna: luminare maius, ut praeesset diei: et luminare minus, ut praeesset nocti: et stellas. Et posuit eas in firmamento caeli, ut lucerent super terram et praeessent diei ac nocti, et dividerent lucem ac tenebras. Et vidit Deus quod esset bonum. Et factum est vespere et mane, dies quartus.Dixit etiam Deus: Producant aquae reptile animae viventis, et volatile super terram sub firmamento caeli. Creavitque Deus cete grandia, et omnem animam viventem atque motabilem, quam produxerant aquae in species suas, et omne volatile secundum genus suum. Et vidit Deus quod esset bonum. Benedixitque eis, dicens: Crescite, et multiplicamini, et replete aquas maris: avesque multiplicentur super terram. Et factum est vespere et mane, dies quintus.Dixit quoque Deus: Producat terra animam viventem in genere suo, iumenta, et reptilia, et bestias terrae secundum species suas.Factumque est ita. Et fecit Deus bestias terrae iuxta species suas, et iumenta, et omne reptile terrae in genere suo. Et viditDeus quod esset bonum, et ait: Faciamus hominem ad imaginem et similitudinem nostram, et praesit piscibus maris, et volatilibus caeli, et bestiis, universaeque terrae, omnique reptili, quod movetur in terra. Et creavit Deus hominem ad imaginem suam: ad imaginem Dei creavit illum, masculum et feminam creavit eos. Benedixitque illis Deus, et ait: Crescite et multiplicamini, et replete terram, et subiicite eam, et dominamini piscibus maris, et volatilibus caeli, et universis animantibus, quae moventur super terram.Dixitque Deus: Ecce dedi vobis omnem herbam afferentem semen super terram, et universa ligna quae habent in semetipsis sementem generis sui, ut sint vobis in escam: et cunctis animantibus terrae, omnique volucri caeli, et universis quae moventur in terra, et in quibus est anima vivens, ut habeant ad vescendum. Et factum est ita.Viditque Deus cuncta quae fecerat, et erant valde bona. Et factum est vespere et mane, dies sextus.Igitur perfecti sunt caeli et terra, et omnis ornatus eorum.Complevitque Deus die septimo opus suum quod fecerat: et requievit die septimo ab universo opere quod patrarat. Et benedixit diei septimo et sanctificavit illum, quia in ipso cessaverat ab omni opere suo quod creavit Deus ut faceret.Istae sunt generationes caeli et terrae, quando creata sunt, in die quo fecit Dominus Deus caelum et terram et omne virgultum agri antequam oriretur in terra, omnemque herbam regionis priusquam germinaret: non enim pluerat Dominus Deus super terram, et homo non erat qui operaretur terram, sed fons ascendebat e terra, irrigans universam superficiem terrae.Formavit igitur Dominus Deus hominem de limo terrae, et inspiravit in faciem eius spiraculum vitae, et factus est homo in animam viventem.Plantaverat autem Dominus Deus paradisum voluptatis a principio, in quo posuit hominem quem formaverat. Produxitque Dominus Deus de humo omne lignum pulchrum visu, et ad vescendum suave: lignum etiam vitae in medio paradisi, lignumque scientiae boni et mali. Et fluvius egrediebatur de loco voluptatis ad irrigandum paradisum, qui inde dividitur in quatuor capita. Nomen uni Phison: ipse est qui circuit omnem terram Hevilath, ubi nascitur aurum, et aurum terrae illius optimum est, ibi invenitur bdellium, et lapis onychinus. Et nomen fluvii secundi Gehon, ipse est qui circumit omnem terram Aethiopiae. Nomen vero fluminis tertii, Tigris: ipse vadit contra Assyrios. Fluvius autem quartus, ipse est Euphrates. Tulit ergo Dominus Deus hominem, et posuit eum in paradiso voluptatis, ut operaretur, et custodiret illum: Praecepitque ei dicens: Ex omni ligno paradisi comede. De ligno autem scientiae boni et mali ne comedas, in quocumque enim die comederis ex eo, morte morieris. Dixit quoque Dominus Deus: Non est bonum esse hominem solum: faciamus ei adiutorium simile sibi. Formatis igitur, DominusDeus, de humo cunctis animantibus terrae, et universis volatilibus caeli, adduxit ea ad Adam, ut videret quid vocaret ea: omne enim quod vocavit Adam animae viventis, ipsum est nomen eius. Appellavitque Adam nominibus suis cuncta animantia, et universa volatilia caeli, et omnes bestias terrae: Adae vero non inveniebatur adiutor similis eius. Immisit ergo Dominus Deus soporem in Adam: cumque obdormisset, tulit unam de costis eius, et replevit carnem pro ea. Et aedificavit Dominus Deus costam, quam tulerat de Adam, in mulierem: et adduxit eam ad Adam. Dixitque Adam: Hoc nunc, os ex ossibus meis, et caro de carne mea: haec vocabitur Virago, quoniam de viro sumpta est. Quamobrem relinquet homo patrem suum, et matrem, et adhaerebit uxori suae: et erunt duo in carne una. Erat autem uterque nudus.Adam scilicet et uxor eius: et non erubescebant. Sed et serpens erat callidior cunctis animantibus terrae quae fecerat Dominus Deus. Qui dixit ad mulierem: Cur praecepit vobisDeus ut non comederetis de omni ligno paradisi? Cui respondit mulier: De fructu lignorum, quae sunt in paradiso, vescimur: de fructu vero ligni quod est in medio paradisi, praecepit nobisDeus ne comederemus, et ne tangeremus illud, ne forte moriamur.Dixit autem serpens ad mulierem. Nequaquam morte moriemini. Scit enim Deus quod in quocumque die comederitis ex eo, aperientur oculi vestri et eritis sicut dii, scientes bonum et malum. Vidit igitur mulier quod bonum esset lignum ad vescendum, et pulchrum oculis, aspectuque delectabile: et tulit de fructu illius, et comedit deditque viro suo, qui comedit. Et aperti sunt oculi amborum, cumque cognovissent se esse nudos, consuerunt folia ficus, et fecerunt sibi perizomata. Et cum audissent vocem Domini Dei deambulantis in paradiso ad auram post meridiem, abscondit se Adam et uxor eius a facie Domini Dei in medio ligni paradisi. Vocavitque Dominus Deus Adam, et dixit ei: Ubi es? Qui ait.Vocem tuam audivi in paradiso et timui, eo quod nudus essem, et abscondi me. Cui dixit: Quis enim indicavit tibi quod nudus esses, nisi quod ex ligno de quo praeceperam tibi ne comederes, comedisti? Dixitque Adam: Mulier, quam dedisti mihi sociam dedit mihi de ligno, et comedi. Et dixit Dominus Deus ad mulierem: Quare hoc fecisti? Quae respondit: Serpens decepit me, et comedi. Et ait Dominus Deus ad serpemem: Quia fecisti hoc, Maledictus es inter omnia animantia, et bestias terrae: Super pectus tuum gradieris, et terram comedes cunctis diebus vitae tuae. Inimicitias ponam inter te et mulierem, Et semen tuum et semen illius: Ipsa conteret caput tuum Et tu insidiaberis calcaneo eius. Mulieri quoque dixit: Multiplicabo aerumnas tuas, et conceptus tuos: in dolore paries filios, et sub viri potestate eris, et ipse dominabitur tui. Adae vero dixit. Quia audisti vocem uxoris tuae, et comedisti de ligno, ex quo praeceperam tibi ne comederes, maledicta terra in opere tuo: in laboribus comedes ex ea cunctis diebus vitae tuae.Spinas et tribulos germinabit tibi, et comedes herbam terrae. In sudore vultus tui vesceris pane, donec revertaris in terram de qua sumptus es: quia pulvis es et in pulverem reverteris. Et vocavit Adam nomen uxoris suae, Heva: eo quod mater esset cunctorum viventium. Fecit quoque Dominus Deus Adae et uxori eius tunicas pelliceas, et induit eos: Et ait: Ecce Adam quasi unus ex nobis factus est, sciens bonum et malum: nunc ergo ne forte mittat manum suam, et sumat etiam de ligno vitae, et comedat, et vivat in aeternum. Et emisit eum Dominus Deus de paradiso voluptatis, ut operaretur terram de qua sumptus est. Eiecitque Adam: et collocavit ante paradisum voluptatis cherubim, et flammeum gladium, atque versatilem, ad custodiendam viam ligni vitae.</span></text>
</content>
<name>Génèse</name>
<script></script>
</card>
card_7786.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpshow cd fld "démo"end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>8</id>
<text><span class="style10">ette version est limitée, pour pouvoir bénéficier de tous les atouts de Doctus Latinus, vous devez payer les droits de ShareWare (100 FF) à : ROTTIERS Mickaël, 25 rue du président Allendé 80800 Corbie.</span></text>
</content>
<name>Déclinaisons</name>
<script></script>
</card>
card_4552.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpanswer "Pensez à payer les droits de ShareWare (minimum 100 FF) à ROTTIERS Mickaël, 25 rue du président Allendé 80800 Corbie" with "OK"end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>8</id>
<text>Personnalisation pour:</text>
</content>
<name>#3</name>
<script>On Closecardglobal Mvideo,MIMAGEif Mvideo is not empty thenclose window Mvideoput "" into Mvideoend ifIf Mimage is not empty then close window Mimageshow bg btn retourcolorizeHC "erase"end Closecard</script>
</card>
card_32818.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpbeephide btn "volume1"hide btn "volume2"hide btn "volume3"hide btn "volume4"hide btn "VolumeCursor"hide btn "Volume"-- en conformité avec le tableau de bord sonend mouseUpNotez que pour ce potentiomètre, la largeur de ce bouton a été régléepour que le bip soit émis conformément à son homologue du tableau de bord.</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>97</top>
<right>502</right>
<bottom>110</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11619</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>VolumeCursor</name>
<script>on mouseDownglobal deltaput (item 2 of the clickLoc)-(top of the target) into delta-- affecte à la variable globale delta la valeur de la différence-- en pixels entre le haut du bouton curseur et l'endroit effectivement-- cliqué par l'utilisateur : ceci permet ensuite de toujours faire buter-- le curseur au bon endroit en haut et en bas du potentiomètre-- quel que soit l'endroit ou l'utilisateur a cliqué-- dans le bouton curseurend mouseDown------------------------------------------------------------------------on mouseStillDown-- N'oubliez pas qu'un tel handler est répété en permanence-- tant que la souris reste enfoncée dans le périmètre du boutonglobal delta,volumeValue,VolumeIntervalNumber-- déclaration de trois variables globales :-- delta conserve la correction a apporter dans le calcul :-- voyez le handler mouseDown ci-dessus-- volumeValue conserve le volume sonore courant-- VolumeIntervalNumber a été initialisée à l'ouverture de la carte :-- elle conserve le nombre de graduations souhaitées pour le potentiomètre-- ici 7 (168 pour le potentiomètre de tempo)put the mouseLoc into currLoc-- récupère les coordonnées de la souris dans la variable currLocput (top of btn volume)+delta into minXput (bottom of btn volume)-(height of btn volumeCursor)+delta into maxX-- calcule la valeur des butées haute et basse que ne doit pas dépasser-- le bouton curseurput (topLeft of btn volumeCursor) into newTopLeft-- récupère les coordonnées du coin haut gauche du bouton curseur-- dans la variable newTopLeftput min(max(item 2 of currLoc,minX),maxX)-delta into item 2 of newtopLeft-- calcule la nouvelle coordonnées verticale du boutonset topLeft of btn volumeCursor to newTopLeft-- place le bouton en conséquenceput VolumeIntervalNumber-(round(((item 2 of newtopLeft)-minX+delta)/(maxX-minX)*VolumeIntervalNumber)) into volumeValue-- calcule la graduation correspondanteend mouseStillDown------------------------------------------------------------------------on mouseUpglobal volumeValue,VolumeIntervalNumber-- voyez le handler précédentget (bottom of btn volume)-((trunc((height of btn volume)/(VolumeIntervalNumber+1)))*volumeValue)set bottom of btn volumeCursor to it-- force le positionnement du curseur sur l'unité la plus procheget Volume(volumeValue)-- fixe le volume en conséquencebeep-- émet un biphide btn "volume1"hide btn "volume2"hide btn "volume3"hide btn "volume4"hide btn "VolumeCursor"hide btn "Volume"end mouseUp</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>396</left>
<top>9</top>
<right>455</right>
<bottom>66</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quitter</name>
<script>on mouseUpanswer "Voulez-vous quitter Doctus Latinus?" with "Non","Oui"if it is "Oui" thendomenu "Quitter HyperCard"end ifend mouseUp</script>
<script>on mouseUpvisual effect dissolvego card "Génèse"global Mvideo,MIMAGEif Mvideo is not empty thenclose window Mvideoput "" into Mvideoend ifIf Mimage is not empty then close window Mimageshow bg btn retourcolorizeHC "erase"Hide bg btn retourLock screencolorizeHC "new","fond","0,0"unlock Screenend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>40</id>
<text><span class="style13">ette version est limitée, pour pouvoir bénéficier de tous les atouts de Doctus Latinus, vous devez payer les droits de ShareWare (100 FF) à : ROTTIERS Mickaël, 25 rue du président Allendé 80800 Corbie.</span></text>
</content>
<content>
<layer>card</layer>
<id>41</id>
<text>Chargement de la version complète, veuillez patienter...</text>
</content>
<name>Menu</name>
<script>On OpencardHide bg btn retourLock screencolorizeHC "new","Menu","0,0"unlock ScreeninitVolume -- ∆-- voir ci-dessous : il s'agit de régler le potentiomètre-- de volume à l'ouverture de la carte en fonction du niveau courantEnd OpencardOn Closecardglobal Mvideo,MIMAGEif Mvideo is not empty thenclose window Mvideoput "" into Mvideoend ifIf Mimage is not empty then close window Mimageshow bg btn retourcolorizeHC "erase"end Closecardon initVolume-- appelé à l'openCard : initialisation du potentiomètre de volumeglobal VolumeIntervalNumber-- déclaration d'une variable globaleput 7 into VolumeIntervalNumber-- nombre de graduations du potentiomètre volume-- conformément à l'interface Macintoshget (bottom of btn volume)-((trunc((height of btn volume)/(VolumeIntervalNumber+1)))*Volume())-- Calcule la coordonnée basse du bouton curseur du potentiomètre de volume-- en fonction du réglage sonore courantset bottom of btn volumeCursor to it-- place le bouton curseur du potentiomètre de volume en conséquenceend initVolume</script>
</card>
card_16321.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >